home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Unix / Piper / SampleScripts / QuoteMail / script < prev   
Encoding:
Text File  |  1995-06-12  |  535 b   |  23 lines
  1. #!/bin/sh
  2. # Simple awk script to limit data to 60 chars per line
  3. # and precede each line with a ">". The presence of the
  4. # "Return type" field in the options file makes it paste
  5. # the output back to the called, eg Mail Send window.
  6. # (Note: not all apps support this paste back feature).
  7. awk '
  8.   BEGIN {len=1; printf ">"}
  9.   {
  10.     if(NF==0){
  11.     printf "\n>\n>";
  12.     len=1
  13.       }else{
  14.     for(i=1;i<=NF;i++){ 
  15.       len+=(length($i)+1);
  16.       if(len>60){ printf "\n>"; len=length($i)+2 }
  17.       printf "%s ", $i 
  18.     }
  19.       }
  20.     }
  21.   END {printf "\n"}
  22.   '
  23.